home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 001 / prcmtlx.arc / MSG.BAS < prev    next >
Encoding:
BASIC Source File  |  1986-04-05  |  329 b   |  11 lines
  1. 10 ID$="MSG-"
  2. 20 CLOSE
  3. 30 OPEN "TLX.CNT" FOR INPUT AS #1:INPUT #1,TN:CLOSE #1:TN=TN+1
  4. 40 OPEN "TLX.CNT" FOR OUTPUT AS #1:PRINT #1,TN:CLOSE #1
  5. 50 TN$=STR$(TN):TN$=RIGHT$(TN$,LEN(TN$)-1):TN$=RIGHT$("00000"+TN$,5)
  6. 60 TNB$=ID$+TN$
  7. 70 OPEN "MSG" FOR OUTPUT AS #1
  8. 80 PRINT #1,DATE$;"   ";TNB$
  9. 90 PRINT #1,CHR$(32)
  10. 100 CLOSE
  11.